/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_1 / issue_08 / baselib

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0f f4 3e 24 2e | 42 61 73 65 4c 69 62 0d |.....>$.|BaseLib.|
|00000010| 00 14 1c f4 20 57 20 52 | 20 48 69 6e 64 6c 65 2c |.... W R| Hindle,|
|00000020| 20 4d 61 72 63 68 20 31 | 39 38 37 0d 00 1e 95 f4 | March 1|987.....|
|00000030| 20 43 6f 6e 76 65 72 74 | 73 20 61 20 64 65 63 69 | Convert|s a deci|
|00000040| 6d 61 6c 20 6e 75 6d 62 | 65 72 20 74 6f 20 61 20 |mal numb|er to a |
|00000050| 73 74 72 69 6e 67 20 72 | 65 70 72 65 73 65 6e 74 |string r|epresent|
|00000060| 61 74 69 6f 6e 20 6f 66 | 20 74 68 61 74 20 6e 75 |ation of| that nu|
|00000070| 6d 62 65 72 20 69 6e 20 | 61 6e 79 20 62 61 73 65 |mber in |any base|
|00000080| 20 66 72 6f 6d 20 32 20 | 74 6f 20 33 36 2e 20 41 | from 2 |to 36. A|
|00000090| 73 73 75 6d 65 73 20 54 | 6f 42 61 73 65 25 20 68 |ssumes T|oBase% h|
|000000a0| 61 73 20 62 65 65 6e 20 | 76 61 6c 69 64 61 74 65 |as been |validate|
|000000b0| 64 20 74 6f 20 72 61 6e | 67 65 20 32 2d 33 36 2e |d to ran|ge 2-36.|
|000000c0| 0d 00 28 05 3a 0d 00 32 | 2f dd f2 43 6f 6e 76 65 |..(.:..2|/..Conve|
|000000d0| 72 74 54 6f 42 61 73 65 | 28 54 6f 42 61 73 65 25 |rtToBase|(ToBase%|
|000000e0| 2c 44 65 63 69 6d 61 6c | 25 2c f8 20 52 65 73 75 |,Decimal|%,. Resu|
|000000f0| 6c 74 24 29 0d 00 3c 0e | 52 65 73 75 6c 74 24 3d |lt$)..<.|Result$=|
|00000100| 22 22 0d 00 46 27 e7 20 | 44 65 63 69 6d 61 6c 25 |""..F'. |Decimal%|
|00000110| 3c 30 20 8c 20 53 69 67 | 6e 24 3d 22 2d 22 20 8b |<0 . Sig|n$="-" .|
|00000120| 20 53 69 67 6e 24 3d 22 | 22 0d 00 50 04 0d 00 5a | Sign$="|"..P...Z|
|00000130| 05 f5 0d 00 64 1e 52 65 | 73 75 6c 74 25 3d 44 65 |....d.Re|sult%=De|
|00000140| 63 69 6d 61 6c 25 20 81 | 20 54 6f 42 61 73 65 25 |cimal% .| ToBase%|
|00000150| 0d 00 6e 04 0d 00 78 1b | f4 20 6e 6f 77 20 67 65 |..n...x.|. now ge|
|00000160| 74 20 74 68 65 20 72 65 | 6d 61 69 6e 64 65 72 0d |t the re|mainder.|
|00000170| 00 82 21 52 65 6d 61 69 | 6e 64 65 72 25 3d 44 65 |..!Remai|nder%=De|
|00000180| 63 69 6d 61 6c 25 20 83 | 20 54 6f 42 61 73 65 25 |cimal% .| ToBase%|
|00000190| 0d 00 8c 04 0d 00 96 1f | f4 20 61 6e 74 69 63 69 |........|. antici|
|000001a0| 70 61 74 65 20 6e 65 78 | 74 20 69 74 65 72 61 74 |pate nex|t iterat|
|000001b0| 69 6f 6e 0d 00 a0 14 44 | 65 63 69 6d 61 6c 25 3d |ion....D|ecimal%=|
|000001c0| 52 65 73 75 6c 74 25 0d | 00 aa 04 0d 00 b4 25 f4 |Result%.|......%.|
|000001d0| 20 6d 61 6b 65 20 73 75 | 72 65 20 72 65 6d 61 69 | make su|re remai|
|000001e0| 6e 64 65 72 20 69 73 20 | 70 6f 73 69 74 69 76 65 |nder is |positive|
|000001f0| 0d 00 be 1c 52 65 6d 61 | 69 6e 64 65 72 25 3d 94 |....Rema|inder%=.|
|00000200| 28 52 65 6d 61 69 6e 64 | 65 72 25 29 0d 00 c8 04 |(Remaind|er%)....|
|00000210| 0d 00 d2 23 f4 20 69 66 | 20 72 65 73 75 6c 74 20 |...#. if| result |
|00000220| 77 69 6c 6c 20 62 65 20 | 6e 75 6d 65 72 69 63 20 |will be |numeric |
|00000230| 30 2d 39 0d 00 dc 34 e7 | 20 52 65 6d 61 69 6e 64 |0-9...4.| Remaind|
|00000240| 65 72 25 3e 3d 30 20 80 | 20 52 65 6d 61 69 6e 64 |er%>=0 .| Remaind|
|00000250| 65 72 25 3c 3d 39 20 8c | 20 52 65 6d 61 69 6e 64 |er%<=9 .| Remaind|
|00000260| 65 72 25 2b 3d 34 38 0d | 00 e6 04 0d 00 f0 20 f4 |er%+=48.|...... .|
|00000270| 20 69 66 20 72 65 73 75 | 6c 74 20 77 69 6c 6c 20 | if resu|lt will |
|00000280| 62 65 20 61 20 6c 65 74 | 74 65 72 0d 00 fa 36 e7 |be a let|ter...6.|
|00000290| 20 52 65 6d 61 69 6e 64 | 65 72 25 3e 3d 31 30 20 | Remaind|er%>=10 |
|000002a0| 80 20 52 65 6d 61 69 6e | 64 65 72 25 3c 3d 33 36 |. Remain|der%<=36|
|000002b0| 20 8c 20 52 65 6d 61 69 | 6e 64 65 72 25 2b 3d 35 | . Remai|nder%+=5|
|000002c0| 35 0d 01 04 04 0d 01 0e | 50 f4 20 63 6f 6e 76 65 |5.......|P. conve|
|000002d0| 72 74 20 6e 75 6d 65 72 | 69 63 20 64 69 67 69 74 |rt numer|ic digit|
|000002e0| 20 76 61 6c 75 65 20 74 | 6f 20 6e 75 6d 62 65 72 | value t|o number|
|000002f0| 20 6f 72 20 6c 65 74 74 | 65 72 20 61 6e 64 20 61 | or lett|er and a|
|00000300| 64 64 20 74 6f 20 72 69 | 67 68 74 20 6f 66 20 72 |dd to ri|ght of r|
|00000310| 65 73 75 6c 74 0d 01 18 | 21 52 65 73 75 6c 74 24 |esult...|!Result$|
|00000320| 3d bd 28 52 65 6d 61 69 | 6e 64 65 72 25 29 2b 52 |=.(Remai|nder%)+R|
|00000330| 65 73 75 6c 74 24 0d 01 | 22 18 fd 20 94 28 52 65 |esult$..|".. .(Re|
|00000340| 73 75 6c 74 25 29 3c 54 | 6f 42 61 73 65 25 0d 01 |sult%)<T|oBase%..|
|00000350| 2c 04 0d 01 36 16 52 65 | 73 75 6c 74 25 3d 94 28 |,...6.Re|sult%=.(|
|00000360| 52 65 73 75 6c 74 25 29 | 0d 01 40 2b e7 20 52 65 |Result%)|..@+. Re|
|00000370| 73 75 6c 74 25 3e 3d 30 | 20 80 20 52 65 73 75 6c |sult%>=0| . Resul|
|00000380| 74 25 3c 3d 39 20 8c 20 | 52 65 73 75 6c 74 25 2b |t%<=9 . |Result%+|
|00000390| 3d 34 38 0d 01 4a 2d e7 | 20 52 65 73 75 6c 74 25 |=48..J-.| Result%|
|000003a0| 3e 3d 31 30 20 80 20 52 | 65 73 75 6c 74 25 3c 3d |>=10 . R|esult%<=|
|000003b0| 33 36 20 8c 20 52 65 73 | 75 6c 74 25 2b 3d 35 35 |36 . Res|ult%+=55|
|000003c0| 0d 01 54 04 0d 01 5e 2f | f4 20 61 70 70 65 6e 64 |..T...^/|. append|
|000003d0| 20 6d 6f 73 74 20 73 69 | 67 6e 69 66 69 63 61 6e | most si|gnifican|
|000003e0| 74 20 64 69 67 69 74 20 | 69 66 20 6e 6f 74 20 7a |t digit |if not z|
|000003f0| 65 72 6f 0d 01 68 2e e7 | 20 52 65 73 75 6c 74 25 |ero..h..| Result%|
|00000400| 3e 3d 34 39 20 8c 20 52 | 65 73 75 6c 74 24 3d bd |>=49 . R|esult$=.|
|00000410| 28 52 65 73 75 6c 74 25 | 29 2b 52 65 73 75 6c 74 |(Result%|)+Result|
|00000420| 24 0d 01 72 19 52 65 73 | 75 6c 74 24 3d 53 69 67 |$..r.Res|ult$=Sig|
|00000430| 6e 24 2b 52 65 73 75 6c | 74 24 0d 01 7c 05 e1 0d |n$+Resul|t$..|...|
|00000440| ff                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+